home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 2
/
United Public Domain Gold 2.iso
/
education
/
pe103.dms
/
pe103.adf
/
menu.AMOS
/
menu.amosSourceCode
Wrap
AMOS Source Code
|
1989-08-11
|
3KB
|
70 lines
Screen Open 0,320,256,16,Lowres : Flash Off : Curs Off : Cls 0
Load "pics/menu.abk" : Music 1
Rem
Rem * Created with RAINBOW WARRIOR - Amos Copper Generator *
Rem * Yup, you can blame good ol' Spadge for this one... *
Rem
Set Rainbow 0,0,280,"","",""
Rainbow 0,0,0,280
Colour Back 256
Restore RDATA
For C=0 To 279 : Read CVA : Rain(0,C)=CVA
Next C : View
RDATA:
Data $100,$210,$320,$430,$540,$650,$761,$872
Data $983,$A94,$BA5,$CB6,$DC7,$ED8,$FE9,$FE9
Data $ED8,$DC7,$CB6,$BA5,$A94,$983,$872,$761
Data $650,$540,$430,$320,$210,$100,$210,$320
Data $430,$540,$650,$761,$872,$983,$A94,$BA5
Data $CB6,$DC7,$ED8,$FE9,$FE9,$ED8,$DC7,$CB6
Data $BA5,$A94,$983,$872,$761,$650,$540,$430
Data $320,$210,$100,$210,$320,$430,$540,$650
Data $761,$872,$983,$A94,$BA5,$CB6,$DC7,$ED8
Data $FE9,$FE9,$ED8,$DC7,$CB6,$BA5,$A94,$983
Data $872,$761,$650,$540,$430,$320,$210,$0
Data $210,$320,$430,$540,$650,$761,$872,$983
Data $A94,$BA5,$CB6,$DC7,$ED8,$FE9,$FE9,$ED8
Data $DC7,$CB6,$BA5,$A94,$983,$872,$761,$650
Data $540,$430,$320,$210,$100,$100,$210,$320
Data $430,$540,$650,$761,$872,$983,$A94,$BA5
Data $CB6,$DC7,$ED8,$FE9,$FE9,$ED8,$DC7,$CB6
Data $BA5,$A94,$983,$872,$761,$650,$540,$430
Data $320,$210,$100,$100,$210,$320,$430,$540
Data $650,$761,$872,$983,$A94,$BA5,$CB6,$DC7
Data $ED8,$FE9,$FE9,$ED8,$DC7,$CB6,$BA5,$A94
Data $983,$872,$761,$650,$540,$430,$320,$210
Data $100,$100,$210,$320,$430,$540,$650,$761
Data $872,$983,$A94,$BA5,$CB6,$DC7,$ED8,$FE9
Data $FE9,$ED8,$DC7,$CB6,$BA5,$A94,$983,$872
Data $761,$650,$540,$430,$320,$210,$100,$210
Data $320,$430,$540,$650,$761,$872,$983,$A94
Data $BA5,$CB6,$DC7,$ED8,$FE9,$FE9,$ED8,$DC7
Data $CB6,$BA5,$A94,$983,$872,$761,$650,$540
Data $430,$320,$210,$0,$100,$210,$320,$430
Data $540,$650,$761,$872,$983,$A94,$BA5,$CB6
Data $DC7,$ED8,$FE9,$FE9,$ED8,$DC7,$CB6,$BA5
Data $A94,$983,$872,$761,$650,$540,$430,$320
Data $210,$0,$0,$0,$0,$0,$0,$0
Data $0,$0,$0,$0,$0,$0,$0,$0
Data $0,$0,$0,$0,$0,$0,$0,$0
Rem
Rem * Alter the values in the RAINBOW and SET RAINBOW *
Rem * to position and control the rainbows. See the *
Rem * manual to check on Y positioning, Length and *
Rem * which colour it is to effect.. Have fun! *
Load Iff "pics/menu.iff"
Screen Display 0,,282,,
Channel 1 To Screen Display 0
Amal 1,"M 0,-256,50" : Amal On : Wait 50
Reserve Zone 3
Set Zone 1,122,83 To 202,110
Set Zone 2,119,131 To 206,156
Set Zone 3,132,179 To 194,202
1
While Mouse Click=0
Wend
Z=Hzone(X Mouse,Y Mouse)
If Z=1 Then Rainbow Del : Run "snap.amos"
If Z=2 Then Rainbow Del : Run "MMM/my_music_machine.amos"
If Z=3 Then Rainbow Del : Run "autoexec.amos"
Goto 1